home *** CD-ROM | disk | FTP | other *** search
/ IBM InfoROM for OS/2 Beta 1995 January / IBM InfoROM for OS2 Beta 1-1995.ISO / testcert / mmedia / system / ap2 / scripts / wrh____8.p2s < prev    next >
Encoding:
Text File  |  1994-05-10  |  5.3 KB  |  222 lines
  1. ###############################################################
  2. # OBJECTIVE:
  3. #
  4. # Description:  Open the wave player, load, set record settings,
  5. # record, seek, play, save, close .
  6. #
  7. # *** Wave Record from Microphone and Line in with Monitor input 
  8. #     disabled or enable.
  9. #
  10. ###############################################################
  11.  
  12. ############################################
  13. #
  14. #   OPEN THE DIGITAL AUDIO PLAYER
  15. #   WAIT FOR SUCCESSFUL OPEN
  16. #
  17. ############################################
  18.  
  19. open waveaudio00 alias wave1 shareable notify
  20. +MM_MCINOTIFY MCI_NOTIFY_SUCCESSFUL MCI_OPEN #1
  21. @WAIT_NOTIFY 1 5000
  22.  
  23. connection wave1 query type wave stream alias amp wait
  24.  
  25. ############################################
  26. #
  27. #   LOAD A NEW FILE TO BE RECORDED
  28. #
  29. ############################################
  30.  
  31. load wave1 new notify
  32. +MM_MCINOTIFY MCI_NOTIFY_SUCCESSFUL MCI_LOAD #2
  33. @WAIT_NOTIFY 2 30000
  34.  
  35. ############################################
  36. #
  37. #   SET THE DIGITAL AUDIO PLAYER
  38. #   TIME FORMAT - MILLISECONDS
  39. #   BITS PER SAMPLE -  8  
  40. #   SAMPLES PER SEC - 11.025Khz  
  41. #   CHANNELS - 1      
  42. #   FORMAT TAG - MULAW   
  43. #   Monitor Input disabled
  44. #
  45. ############################################
  46.  
  47. set wave1 time format milliseconds wait
  48. status wave1 time format wait
  49. =milliseconds
  50.  
  51. set wave1 bitspersample 8 wait
  52. status wave1 bitspersample wait
  53. =8
  54.  
  55. set wave1 samplespersec 11025 wait
  56. status wave1 samplespersec wait
  57. =11025
  58.  
  59. set wave1 channels 1 wait
  60. status wave1 channels wait
  61. =1
  62.  
  63. set wave1 format tag MULAW wait
  64. status wave1 format tag wait
  65. =MULAW
  66. set amp MONITOR OFF wait
  67. status amp MONITOR wait
  68. =false
  69.  
  70. # Testing with the microphone
  71. connector wave1 enable type microphone wait
  72.  
  73. ############################################
  74. #
  75. #   RECORD THE NEW WAVE FILE
  76. #
  77. ############################################
  78.  
  79. record wave1 from 0 to 10000 notify
  80. +MM_MCINOTIFY MCI_NOTIFY_SUCCESSFUL MCI_RECORD #3
  81.  
  82. stop wave1 wait
  83. @WAIT_NOTIFY 3 20000
  84.  
  85. ############################################
  86. #   SEEK TO START
  87. #   PLAY THE NEW RECORDED FILE
  88. ############################################
  89.  
  90. seek wave1 to 0 wait
  91. status wave1 position wait
  92. =0
  93.  
  94. play wave1 notify
  95. +MM_MCINOTIFY MCI_NOTIFY_SUCCESFUL MCI_PLAY #4
  96. @WAIT_NOTIFY 4 40000
  97.  
  98. ############################################
  99. # Testing with the Line in
  100. ############################################
  101.  
  102. CONNECTOR wave1 enable type LINE IN notify
  103.  
  104. @REM ***************************************************************
  105. @REM Ensure an audio source is connected to the line in jack of the
  106. @REM audio card, otherwise it will be a blank record.
  107. @REM ***************************************************************
  108.  
  109. seek wave1 to 0 wait
  110. status wave1 position wait
  111. =0
  112.  
  113. record wave1 from 0 to 10000 notify
  114. +MM_MCINOTIFY MCI_NOTIFY_SUCCESSFUL MCI_RECORD #5
  115. @WAIT_NOTIFY 5 20000
  116.  
  117. stop wave1 wait
  118. @WAIT_NOTIFY 6 20000
  119.  
  120.  
  121. ############################################
  122. #
  123. #   SEEK TO START
  124. #   PLAY THE NEW RECORDED FILE
  125. #
  126. ############################################
  127.  
  128. seek wave1 to 0 wait
  129. status wave1 position wait
  130. =0
  131. play wave1 notify
  132.  
  133. +MM_MCINOTIFY MCI_NOTIFY_SUCCESSFUL MCI_PLAY #6
  134. @WAIT_NOTIFY 6 45000
  135.  
  136. ############################################
  137. # RECORD AGAIN WITH MONITOR INPUT ON
  138. ############################################
  139.  
  140. set amp MONITOR ON wait
  141. status amp MONITOR wait
  142. =TRUE
  143.  
  144. # Testing with the microphone
  145. connector wave1 enable type microphone wait
  146.  
  147. ############################################
  148. #
  149. #   RECORD THE WAVE FILE
  150. #
  151. ############################################
  152.  
  153. record wave1 from 0 to 10000 notify
  154. +MM_MCINOTIFY MCI_NOTIFY_SUCCESSFUL MCI_RECORD #7
  155.  
  156. stop wave1 wait
  157. @WAIT_NOTIFY 7 20000
  158.  
  159. ############################################
  160. #   SEEK TO START
  161. #   PLAY THE NEW RECORDED FILE
  162. ############################################
  163.  
  164. seek wave1 to 0 wait
  165. status wave1 position wait
  166. =0
  167. play wave1 notify
  168. +MM_MCINOTIFY MCI_NOTIFY_SUCCESFUL MCI_PLAY #8
  169. @WAIT_NOTIFY 8 40000
  170.  
  171. ############################################
  172. # Testing with the Line in
  173. ############################################
  174.  
  175. CONNECTOR wave1 enable type LINE IN notify
  176.  
  177. @REM ***************************************************************
  178. @REM Ensure an audio source is connected to the line in jack of the
  179. @REM audio card, otherwise it will be a blank record.
  180. @REM ***************************************************************
  181.  
  182. record wave1 from 0 to 10000 notify
  183. +MM_MCINOTIFY MCI_NOTIFY_SUCCESSFUL MCI_RECORD #9
  184. @WAIT_NOTIFY 9 20000
  185.  
  186. stop wave1 wait
  187. @WAIT_NOTIFY 5 20000
  188.  
  189.  
  190. ############################################
  191. #
  192. #   SEEK TO START
  193. #   PLAY THE NEW RECORDED FILE
  194. #   SAVE THE NEW RECORDED FILE
  195. #
  196. ############################################
  197.  
  198. seek wave1 to 0 wait
  199. status wave1 position wait
  200. =0
  201. play wave1 notify
  202. +MM_MCINOTIFY MCI_NOTIFY_SUCCESSFUL MCI_PLAY #10
  203. @WAIT_NOTIFY 10 45000
  204.  
  205.  
  206. #Save the recored file 
  207. save wave1 delete.wav notify
  208. +MM_MCINOTIFY MCI_NOTIFY_SUCCESSFUL MCI_SAVE #11
  209. @WAIT_NOTIFY 11 5000
  210.  
  211.  
  212. ############################################
  213. #
  214. #   CLOSE THE DIGITAL AUDIO PLAYER AND
  215. #   EXPECT A SUCCESSFUL CLOSE
  216. #
  217. ############################################
  218.  
  219. close wave1 notify
  220. +MM_MCINOTIFY MCI_NOTIFY_SUCCESSFUL MCI_CLOSE #12
  221. @WAIT_NOTIFY 12 25000
  222.